home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / misc / amag / am9311b.lha / Tips & Tricks / GetOpusFiles.rexx < prev    next >
OS/2 REXX Batch file  |  1993-11-01  |  652b  |  32 lines
  1. /* Um das aktive Fenster von
  2.    DirOpus zu ermitteln,
  3.    gibt's diesen Befehl */
  4. Status 3
  5. window=RESULT
  6. /* Der Variablen Dirs wird
  7.    die Zeichenkette der an-
  8.    gewählten Verzeichnisse
  9.    zugewiesen */
  10. GetSelectedDirs
  11. dirs=RESULT
  12. if dirs = "RESULT" then exit
  13. /* Die Anzahl der markierten
  14.    Einträge auslesen */
  15. Status 9 window
  16. Anzahl=RESULT+1
  17. /* PARSE VAR bewirkt, daß die
  18.    diversen Namen in ein
  19.    Array geschrieben werden.
  20.    Die Namen sind dann per
  21.    Punktoperator auswählen */
  22. n=Anzahl
  23. DO UNTIL n=1
  24.   n=n-1
  25.   PARSE VAR dirs Namen.n dirs
  26.   /* Die folgende Zeile dient
  27.      der Überprüfung und kann
  28.      weggelassen werden */
  29.   say Namen.n
  30. END
  31.  
  32.